100 REM ******  FLOPPY - ADJUST ******  :
120 PRINT"[147]":POKE 53280,12:POKE 53281,0:POKE 198,0
140 G=1:MG=3:R1=10:R0=3:RV=0:A$="          "
150 CU=214:REM CURSORZEILE
160 PRINT""A$"[198][204][207][208][208][217]-[197][201][206][211][212][197][204][204][200][201][204][198][197]"
170 PRINT""
180 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
190 IF C/R1=INT(C/R1)THEN RV=NOT RV
192 IF RV THEN PRINT"";
195 PRINT"[154]        [194]ITTE MIT '[195][210][211][210]' WAEHLEN        ";
196 PRINT"        DANN  '[210][197][212][213][210][206]'  DRUECKEN        ";:POKE 199,0
197 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
200 X=1:W$="[199]ROBEINSTELLUNG":GOSUB 400
220 W$="[198]EINEINSTELLUNG":GOSUB 400
240 W$="   [197][206][196][197]       ":GOSUB 400
280 GET G$:IF G$=CHR$(13)THEN 360
300 IF G$=""THEN G=G+1:IF G>MG THEN G=1
320 IF G$="[145]"THEN G=G-1:IF G<1 THEN G=MG
330 POKE 198,PEEK(198)AND 1
340 GOTO 160
360 ON G GOSUB 445,445:ON G GOTO 460,500,450
380 GOTO 280
400 PRINT:PRINT A$;:IF X=G THEN PRINT"";
420 PRINT W$"[146]  ";
430 IF X=G THEN C=C+1 AND 15:IF C/R0=INT(C/R0)THEN PRINT"[157]_";
440 PRINT:X=X+1:RETURN
445 POKE CU,24:PRINT:FOR F=1 TO 11:PRINT:NEXT:POKE CU,10:PRINT
446 POKE 768,174:POKE 769,167:POKE 144,0:OPEN 1,8,15:CLOSE 1
447 POKE 768,139:POKE 769,227
448 IF ST=0 THEN RETURN
449 E$="[198]LOPPY NICHT EINGESCHALTET":GOTO 1340
450 CLOSE 2:CLOSE 1:PRINT"[147] [194]YE.":END
460 REM GROB
480 T1=18:T2=18:GOTO 560
500 REM FEIN
520 PRINT"[204]ESEN VON [211]PUR ";:INPUT" 1[157][157][157]";T1
540 PRINT"[204]ESEN BIS [211]PUR ";:INPUT" 35[157][157][157][157]";T2
560 INPUT "[205]AX. [218]EIT FUER 1 [194]LOCK   0.5 SEC[157][157][157][157][157][157][157][157][157]";G$:MT=VAL(G$)
570 FB=0:INPUT"[210]ANDFARBWECHSEL GEWUENSCHT<J/N>  N[157][157][157]";G$:IF G$="J"THEN FB=1
580 PRINT"[147][194]ITTE KORREKT FORMATIERTE [196]ISKETTE"
600 PRINT"EINLEGEN.([196]ATEN WERDEN NICHT[146] ZERSTOERT)"
610 PRINT:PRINT"[206]ACH DIESER [196]ISKETTE KANN DIE [198]LOPPY":PRINT"EINGESTELLT WERDEN"
620 PRINT:PRINT"[198]ERTIG ? [196]ANN [212]ASTE DRUECKEN"
640 POKE 198,0:WAIT 198,1:GET G$
680 ZL=10:SP=12:REM POS. F.BALKEN
700 DL=59903:REM ADR.DELETE LINE
720 XR=781:REM X-REG.SYS
740 LB=20:B$="":FOR F=1 TO LB:B$=B$+" ":NEXT
780 DEF FN T(X)=INT(PEEK(X)/16)*10+PEEK(X)-INT(PEEK(X)/16)*16
800 Z=56328:S=Z+1:POKE S,0:POKE Z,0
820 PRINT"[147]  ****  [198]LOPPY-[193]DJUST  ****  [214]25.2.85"
840 :
860 POKE CU,5:PRINT:PRINT" [196]ISK WIRD INITIALISIERT"
880 OPEN 1,8,15,"I":OPEN 2,8,2,"#"
900 POKE CU,ZL:PRINT
920 PRINT TAB(SP)" ^ MAX."SPC(LB-13)"MIN.^"
940 T=T1:REM TRACK
960 POKE S,0:POKE Z,0
980 PRINT#1,"U1:"2;0;T;1
1000 INPUT#1,E,E$,ET,ES:IF E THEN 1340
1040 TM=FN T(S)+FN T(Z)/10-D
1060 FL=NOT FL:IF FL AND FB THEN POKE 53280,(PEEK(53280)+1)AND 1
1080 TB=LB-LB*(TM/MT):IF TB<0 THEN TB=0
1100 POKE XR,ZL:SYS DL
1120 PRINT"[218]EIT :"TM"S"TAB(SP)LEFT$(B$,TB+1)
1140 POKE CU,5:PRINT:PRINT"[154][197]INSTELLUNG  O.K     [146]";
1160 PRINT"[211]PUR : "T"[157]  "
1180 IF TM>MT THEN PRINT"[145]FALSCHE [197]INSTELLUNG ![146]"
1200 TX=T:T=T+1:IF T>T2 THEN T=T1
1220 D=ABS(T-TX)/100:REM FUER TRACKTRANSPORT ZEIT ZUGEBEN
1240 GET G$:IF G$<>""THEN 1380
1260 GOTO 960
1340 PRINT"[147][198]LOPPY - [198]EHLER[146] !":PRINT E;""E$"[146]";ET;ES
1360 PRINT:PRINT"[194]ITTE [212]ASTE DRUECKEN.":POKE 198,0:WAIT 198,1
1380 CLOSE 2:CLOSE 1:RUN